home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / misc / quicksort / qsorttest.s < prev   
Text File  |  1980-01-03  |  594b  |  34 lines
  1. ***********************************************************
  2. * Test routine for QuickSort.
  3. ***********************************************************
  4.  
  5.         section    TheCode,code
  6. Start:
  7.     ; Make some random data.
  8.         move.l    #9999,d7
  9.         lea    StartOfArray,a0
  10. .loop:        move.l    $dff004,(a0)+
  11.         move.w    $dff006,$dff180
  12.  
  13.         rept    20
  14.         muls    #$5555,d0
  15.         endr
  16.  
  17.         dbf    d7,.loop
  18.  
  19.     ; Sort the data
  20.         pea    EndOfArray
  21.         pea    StartOfArray
  22.         bsr.b    QuickSort
  23.         addq.l    #8,sp
  24.         rts
  25.  
  26.         include    'QSort.s'
  27.  
  28. ***********************************************************
  29.  
  30.         section    TheData,bss
  31.  
  32. StartOfArray:    ds.l    9999
  33. EndOfArray:    ds.l    1
  34.